home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / Panorama3_d1.adf / ARexxMacros / Microscope.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-17  |  452b  |  26 lines
  1. /* Draw a picture looking straight down at a small patch of the landscape
  2.      centered on the point whose labels are entered on the command line. */
  3.  
  4. OPTIONS RESULTS
  5. address 'Panorama'
  6. arg i j .
  7. 'GetRecursionLevel'
  8. if rc = 0 then rlevel = RESULT
  9.      else exit
  10. q = 1
  11. do for rlevel-1
  12.   q = 3*q
  13.   end
  14. x = 1000*i/q
  15. y = 1732*j/q
  16. 'ObsX' x
  17. 'ObsY' y
  18. 'ObsZ 36000'
  19. 'TargetX' x
  20. 'TargetY' y
  21. 'TargetZ 0'
  22. 'BankAngle 0'
  23. w = 1.0/3.0/q
  24. 'FocalLength' 52.5*q
  25. 'DrawPic'
  26.